home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
126-150
/
disk_146
/
dmemacros
/
modula-2
/
impmod.edrc
< prev
next >
Wrap
Text File
|
1992-05-06
|
511b
|
18 lines
repeat 6 insline `+' ifelse t insline up firstnb
ifelse c>32 `down repeat 2 `insline down'' `ifelse t insline up firstnb if c>32 `down insline' down down'
repeat 6 down firstnb
ifelse c>32 `insline insline' `if b insline down firstnb if c>32 insline up'
repeat 6 up firstnb del
`IMPLEMENTATION MODULE ;' firstnb repeat 4 down
`BEGIN' wleft down
`END +.' findstr `;' prev
escimm (`) wleft scanf %[~;] down findr `+' $scanf firstnb up up up tab